REM Sub includeFile(fSpec)
    REM executeGlobal CreateObject("Scripting.FileSystemObject").openTextFile(fSpec).readAll()
REM End Sub

Function pwd()
	Dim wshell
	set wshell = createobject("wscript.shell")
	pwd = wshell.currentdirectory
End Function

Sub goScriptDirname()
	Dim FSO, oShell
	set FSO = CreateObject("Scripting.FileSystemObject")
	Set oShell = CreateObject("WScript.Shell")
	oShell.CurrentDirectory = FSO.GetFile(Wscript.ScriptFullName).ParentFolder
End Sub

Function listFile(stRep)
	Dim objFiles, oFSO, oFl
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	Set objFiles = oFSO.GetFolder(stRep).Files

	For each oFl in objFiles
		listFile = listFile & VbCrLf & oFl.Name
	Next
End Function	

Function countFile(stRep)
	Dim oFSO, objFiles
	Set oFSO = CreateObject("Scripting.FileSystemObject")
	Set objFiles = oFSO.GetFolder(stRep).Files
	countFile = objFiles.Count
End Function
